Решение:

Итоговый код процедуры WSH() может быть таким:

Public Sub WSH()

Dim oNetwork As WshNetwork

Dim oShell As WshShell

Dim sComputer As String

Dim sDomain As String

Dim sUser As String

Dim oColl As Variant

Dim sEnv As Variant

'Создаем объекты

Set oNetwork = CreateObject("WScript.Network")

Set oShell = CreateObject("Wscript.Shell")

'Получаем и печатаем значения свойств объекта Wscript . Network

sComputer = oNetwork.ComputerName

sDomain = oNetwork.UserDomain

sUser = oNetwork.UserName

ThisDocument.Activate

Selection.TypeText sComputer & vbCrLf & sDomain & vbCrLf & sUser & vbCrLf & vbCrLf

'Вызываем метод Run объекта Wscript.Shell

oShell Run "Calc"

'Получаем коллекцию переменных окружения

Set oColl = oShell.Environment

'И выводим каждый элемент этой коллекции

For Each sEnv In oColl

Selection.TypeText sEnv & vbCrLf

Next

'Правило хорошего тона - удаляем созданные объекты из памяти

Set oNetwork = Nothing

Set oShell = Nothing

End Sub

Получить этот учебник в формате PDF (Acrobat Reader) или DOC (Microsoft Word)